home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Hypercard / HyperCard' More / C-D / DeveloperStax.cpt / Developer Stack 1.1 / Developer Stack 1.1 / card_14916.txt < prev    next >
Encoding:
Text File  |  1989-02-26  |  1.5 KB  |  48 lines
  1. -- card: 14916 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2202
  5. -- name: GetFullPath
  6. ----- HyperTalk script -----
  7. function GetFullPath name,pathlist
  8. repeat with i = 1 to the number of lines in pathlist
  9.   if line i of pathlist is empty then next repeat -- sanity check
  10.   put line i of pathlist & name into fname
  11.   if FileModDate(fname,true) is not empty then -- found it
  12.     return fname
  13.   end if
  14. end repeat
  15. return empty   -- file not found in pathlist
  16. end GetFullPath
  17.  
  18.  
  19. -- part contents for background part 10
  20. ----- text -----
  21. 2
  22.  
  23. -- part contents for background part 2
  24. ----- text -----
  25. --
  26. -- GetFullPath: a function to find the full path name of an application,
  27. -- document or stack. The pathlist is one of 3 globals: applications,
  28. -- documents or stacks- see getHomeInfo in the Home stack's stack script
  29. -- For instance:
  30. --      global stacks
  31. --      put GetFullPath("Browser",stacks) into bpath
  32. -- should compute the full pathname of the Browser stack (if the "Look
  33. -- for stacks in:" card in the Home stack is up to date).
  34. --
  35. function GetFullPath name,pathlist
  36.   repeat with i = 1 to the number of lines in pathlist
  37.     if line i of pathlist is empty then next repeat -- sanity check
  38.     put line i of pathlist & name into fname
  39.     if FileModDate(fname,true) is not empty then -- found it
  40.       return fname
  41.     end if
  42.   end repeat
  43.   return empty   -- file not found in pathlist
  44. end GetFullPath
  45.  
  46. -- part contents for background part 3
  47. ----- text -----
  48. GetFullPath